unit BarCodeFrm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinOffice2010Blue,
  dxSkinOffice2013White, cxTextEdit, Vcl.Menus, Vcl.StdCtrls, cxButtons,
  dxSkinscxPCPainter, dxLayoutcxEditAdapters, dxLayoutControlAdapters,
  dxLayoutLookAndFeels, cxClasses, dxLayoutContainer, dxLayoutControl,
  dxSkinOffice2010Black, Vcl.Touch.Keyboard;

type
  TBarCodeForm = class(TForm)
    txt_barcode: TcxTextEdit;
    btn_Cancel: TcxButton;
    btn_Ok: TcxButton;
    lg1: TdxLayoutGroup;
    lc1: TdxLayoutControl;
    lglc1Group1: TdxLayoutGroup;
    lglc1Group2: TdxLayoutGroup;
    itm_lc1Item1: TdxLayoutItem;
    itm_lc1Item2: TdxLayoutItem;
    itm_lc1Item3: TdxLayoutItem;
    dxlytlkndflst1: TdxLayoutLookAndFeelList;
    dxlytcxlkndfl1: TdxLayoutCxLookAndFeel;
    TouchKeyboard1: TTouchKeyboard;
    Keyboard: TdxLayoutItem;
    procedure txt_barcodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BarCodeForm: TBarCodeForm;

implementation

{$R *.dfm}

procedure TBarCodeForm.FormCreate(Sender: TObject);
begin
  TouchKeyboard1.Layout:='NumPad1';
end;

procedure TBarCodeForm.txt_barcodeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
     ModalResult:= mrOk;
end;

end.
